home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / rmqb01.zip / DISDAT.BAS next >
BASIC Source File  |  1991-11-06  |  2KB  |  36 lines
  1. '                             DisDat.bas
  2. '
  3. 'Purpose : Displays an image created with the DAT option in Raster Master
  4. 'Comiler : QuickBASIC 4.5
  5. 'Date    : Nov 4, 1991
  6.  
  7. OPTION BASE 1
  8. DEFINT A-Z
  9. DIM Image(140)        'Array Size is 140 as indicated in the REM line
  10. FOR I = 1 TO 140
  11.   READ Image(I)
  12. NEXT I
  13. SCREEN 7              'DAT files created with Raster Master can
  14. PUT (140, 70), Image  'only be displayed in SCREENS 7,8,9, and 12
  15.  
  16. REM  Array Size=140 Width=20 Height=23 Colors=16
  17. DATA &H0014,&H0017,&H01FF,&H00FF,&H00FE,&HFE00,&H0000,&H00FE
  18. DATA &H00FC,&H037F,&H80FF,&HFF03,&H0380,&H80FF,&H00F8,&H073F
  19. DATA &HC08F,&H8F07,&H07C0,&HC08F,&H70E0,&H1F0F,&HE017,&H171F
  20. DATA &H1FF0,&HF077,&H70E0,&H1F1F,&HC037,&H371F,&H1FE0,&HE077
  21. DATA &H70C0,&H3F3F,&H8017,&H173F,&H3FC0,&HC077,&H0080,&H7F7F
  22. DATA &H008F,&H8F7F,&H7F80,&H808F,&H0080,&H7FFF,&H00FE,&HFF7F
  23. DATA &H7F00,&H00FF,&H0100,&HFFFF,&H00FC,&HFEFF,&HFF00,&H00FE
  24. DATA &H0300,&HFFFF,&H00F8,&HFCFF,&HFF00,&H00FC,&H0700,&HFFFF
  25. DATA &H00F0,&HF8FF,&HFF00,&H00F8,&H0F00,&HFFFF,&H00E0,&HF0FF
  26. DATA &HFF00,&H00F0,&H0700,&HFFFF,&H00F0,&HF8FF,&HFF00,&H00F8
  27. DATA &H0300,&HFFFF,&H00F8,&HFCFF,&HFF00,&H00FC,&H0100,&HFFFF
  28. DATA &H00FC,&HFEFF,&HFF00,&H00FE,&H0080,&H7FFF,&H00FE,&HFF7F
  29. DATA &H7F00,&H00FF,&H0080,&H7F7F,&H00FF,&HFF7F,&H7F80,&H80FF
  30. DATA &H00C0,&H3F3F,&H80FF,&HFF3F,&H3FC0,&HC0FF,&H00E0,&H1F1F
  31. DATA &HC0FF,&HFF1F,&H1FE0,&HE0FF,&H00E0,&H1F0F,&HE0FF,&HFF1F
  32. DATA &H1FF0,&HF0FF,&H00F8,&H073F,&HC0FF,&HFF07,&H07C0,&HC0FF
  33. DATA &H00FC,&H037F,&H80FF,&HFF03,&H0380,&H80FF,&H01FF,&H00FF
  34. DATA &H00FE,&HFE00,&H0000,&H00FE
  35.  
  36.